﻿<!--#include file="h.asp"--><%
'
'	七色虎建站系统
'	链接跳转页面
'	2011.11.2

Sub main
	Dim url,siteurl,body_
	url=Replace(LCase(Request.QueryString),"url=","")
	siteurl="http://" & http_server
	hu.title = "网站跳转"
	If InStr(url,"://")=0 Or left(url,Len(siteurl))=siteurl Then
		' w "<title>站内跳转</title><meta http-equiv='refresh' content='1;url="&nowml(url)&"'></head><body><div class=""main"">正在转向其他页面..<br/>"&_
			' "<a href="""&nowml(url)&""">访问该页面</a> <a href="""">返回来页</a><br/>"
		hu.redirect url
	Else
		Set re=new RegExp
		re.IgnoreCase =True
		re.Global=True
		re.Pattern=""&bbsSid&"=\w+"
		url=re.Replace(url,"sid=1")
		Set re=Nothing
		body_ = "您即将访问其他网站"&nowml(url)&"，确定离开本站？<br/><a href="""&nowml(url)&""">访问该网站</a> <a href="""">返回来页</a><br/>"
	End If
	hu.body = body_
End Sub

%>